COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION N(100),IEXT(100)
C00003 ENDMK
C⊗;
	DIMENSION N(100),IEXT(100)
1	FORMAT(A5,A2,A3)
2	FORMAT(1XA5,A2,A3)
3	FORMAT(' TYPE FILE NAME  '$)
	TYPE 3
	ACCEPT 1,NAM
	CALL IFILE(1,NAM)
 	READ(1,1)J
 	READ(1,1)J
	J=1
4	READ(1,1,END=5)N(J),K,IEXT(J)
	IF(N(J).EQ.' ')GO TO 4
	TYPE 2,N(J),K,IEXT(J)
CC	IF(N(J).EQ.'	Tota')GO TO 5
	J=J+1
	GO TO 4
5 	J=J-2
7	DO 8 K=1,J-1
	IF(N(K).LT.N(K+1))GO TO 8
	L=N(K+1)
	N(K+1)=N(K)
	N(K)=L
	L=IEXT(K+1)
	IEXT(K+1)=IEXT(K)
	IEXT(K)=L
	GO TO 7
8	CONTINUE
	L=' '
	DO 9 K=1,J
9	TYPE 2,N(K),L,IEXT(K)
	END